Nuprl Lemma : st-atom_wf
0,22
postcript
pdf
T
:(Id
Type),
tab
:secret-table(
T
),
n
:
||
tab
|| . st-atom(
tab
;
n
)
Atom1
latex
Definitions
Type
,
t
T
,
Id
,
x
:
A
B
(
x
)
,
x
:
A
.
B
(
x
)
,
data(
T
)
,
{
x
:
A
|
B
(
x
) }
,
,
#$n
,
{
i
..
j
}
,
x
:
A
B
(
x
)
,
Atom$n
,
S
T
,
,
x
.
A
(
x
)
,
x
.
t
(
x
)
,
1of(
t
)
,
2of(
t
)
,
f
(
a
)
,
st-atom(
tab
;
n
)
,
||
tab
||
,
secret-table(
T
)
Lemmas
pi2
wf
,
pi1
wf
,
nat
wf
,
int
seg
wf
,
data
wf
,
Id
wf
origin
T:(Id
Type), tab:secret-table(T), n:
||tab|| . st-atom(tab;n) 
Atom1 T:(IdType), tab:secret-table(T), n:||tab|| . st-atom(tab;n) Atom1 TB(x)x:A. B(x)
}
B(x)
T
x.A(x)
x. t(x)